(uncompress-while-visiting): Leave point at beginning.

diff --git a/lisp/uncompress.el b/lisp/uncompress.el
index 9da57a32d4d92d79ae3a8842cc8639d61c63fa75..d809f81bd7988f55dd9540feeccaa2e0a5dea81b 100644 (file)
--- a/lisp/uncompress.el
+++ b/lisp/uncompress.el
@@ -74,6 +74,7 @@ It then selects a major mode from the uncompressed file name and contents."
   (message "Uncompressing...")
   (let ((buffer-read-only nil))
     (shell-command-on-region (point-min) (point-max) uncompress-program t))
+  (goto-char (point-min))
   (message "Uncompressing...done")
   (set-buffer-modified-p nil)
   (make-local-variable 'write-file-hooks)